home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 190 / 190.d81 / b.how many 2 / b.080d / b.a7ae (.txt)
Encoding:
Commodore BASIC  |  2000-01-01  |  48.8 KB  |  113 lines
  1. 8 poke56,56:clr:poke53371,0:poke788,49:tq=ti
  2. 10 dv=peek(186):ifdv<8thendv=8
  3. 20 poke53281,0:poke53280,0:print"[147]":gosub60000
  4. 30 rem sys57812"how many tool",dv,0:poke780,0:poke781,0:poke782,64:sys65493
  5. 32 rem sys57812"how many font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  6. 34 rem sys57812"how unp c900",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  7. 36 sys51462,"intro.shp",dv,224,204,96
  8. 40 fori=1to4:readm$(i):next
  9. 42 data"[212]he [198]ish! [212]he [198]ish!
  10. 46 [131]"right$nstructions"
  11. 47 [131]"(NULL)rint valntry peeklank"
  12. 48 [131]"(NULL)uit to (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  13. 60 [139]ti[179]tq[170]50[167]60
  14. 62 cr$[178][199](13):tb$[178]"          "
  15. 64 ml[178]64[172]256:v[178]53248
  16. 68 [151]v[170]21,0
  17. 70 [153]"load":[151]53272,31:[158]ml[170]24,0,38,0,24,126,127,10,8
  18. 72 [158]ml[170]39,168
  19. 78 [158]ml[170]30,3,37,2,11,255,2
  20. 80 [158]ml[170]30,2,36,1,10,160,7[170]16
  21. 88 [153]"print";
  22. 90 [158]ml[170]27,3,"(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL) (NULL)roudly (NULL)resents
  23. 92 print"[129]";
  24. 94 sysml+27,4,"[215] [193] [204] [212] ' [211]"
  25. 100 sysml+27,5,"[174] [176] [176][192][174] [174]  [176]   [176][174][176][174] [176][192][174] [176][174][176] [174] [176]"
  26. 102 sysml+27,6,"[171][192][179] [221] [221] [221][176][174][221]   [221][173][189][221] [171][192][179] [221][221][221] [173][178][189]"
  27. 104 sysml+27,7,"[189] [173] [173][192][189] [173][189][173][189]   [189]  [173] [189] [173] [189][173][189]  [177] "
  28. 110 sysml+27,8,"[195] [207] [206] [212] [197] [211] [212][154]"
  29. 120 sysml+30,8,32,15,20,255,2
  30. 122 sysml+30,7,31,14,19,160,7+16
  31. 130 fori=1to4:sysml+27,14+i,m$(i):next
  32. 132 sysml+39,160
  33. 140 sysml+33,8,30,15,18,14,1,""
  34. 150 ifs%=4then39000
  35. 152 ifs%=3thengosub2000:sysml+42,160:goto140
  36. 154 ifs%=2thengosub1000:sysml+42,160:pokev+21,3:goto140
  37. 160 poke252,224:poke253,204:poke254,96:sys51459
  38. 170 poke198,0
  39. 180 geta$:ifa$=""then180
  40. 182 pokev+21,0:sys51459:sysml+42,160:goto140
  41. 1000 sysml+42,168:pokev+21,0
  42. 1010 sysml+30,5,35,3,22,255,2
  43. 1020 sysml+30,4,34,2,21,160,7+16
  44. 1022 print"[159]";
  45. 1030 sysml+27,4,"[215][193][204][212] [200][193][210][206][197][196]'[211]
  46. 1032 [158]ml[170]27,5,"left$ (NULL) (NULL)   (NULL) atn (NULL) (NULL)
  47. 1034 sysml+27,6,"[195][207][206][212][197][211][212]
  48. 1040 [158]ml[170]12,6,8,"list(NULL)here's nothing to it! mid$ust
  49. 1042 sysml+12,6,9,"select [212][200][197] [198][201][211][200]! from the
  50. 1044 [158]ml[170]12,6,10,"menu and count how many
  51. 1046 sysml+12,6,11,"fishies there are in the
  52. 1048 [158]ml[170]12,6,12,"picture. (NULL)hen just select
  53. 1050 sysml+12,6,13,"[208][210][201][206][212] [197][206][212][210][217] [194][204][193][206][203] and fill
  54. 1052 [158]ml[170]12,6,14,"it in, along with the number
  55. 1054 sysml+12,6,15,"of fishies you counted.
  56. 1056 [158]ml[170]12,6,16,"(NULL)ou may send a postcard
  57. 1058 sysml+12,6,17,"instead of the entry sheet
  58. 1060 [158]ml[170]12,6,18,"if you wish.
  59. 1070 sysml+27,20,"[208]ress a key"
  60. 1080 geta$:ifa$=""then1080
  61. 1092 return
  62. 1099 goto1099
  63. 2000 sysml+42,168:pokev+21,0
  64. 2010 sysml+30,5,35,9,17,255,2
  65. 2020 sysml+30,4,34,8,16,160,7+16
  66. 2022 print"[155]";
  67. 2030 sysml+12,7,10,"[199]et printer ready for a
  68. 2040 [158]ml[170]12,7,11,"one-sheet printout...
  69. 2050 sysml+27,13,"[208]rint [197]ntry [194]lank
  70. 2060 [158]ml[170]27,14,"peekack to left$(NULL)(NULL) (NULL)atn(NULL)(NULL)
  71. 2070 sysml+33,7,32,13,14,12,1,""
  72. 2080 ifs%=2thenreturn
  73. 2100 open4,4,7:close4
  74. 2110 ifst=-128then...
  75. 2120 open4,4,7
  76. 2130 print#4,tb$tb$"[215][193][204][212] [200][193][210][206][197][196]'[211] [200][207][215] [205][193][206][217] [195][207][206][212][197][211][212] #2"cr$
  77. 2140 print#4,tb$"[198]ill in your address below and send your entry to:"cr$
  78. 2160 print#4,tb$tb$"   [215][193][204][212]'[211] [200][207][215] [205][193][206][217] [195][207][206][212][197][211][212] #2
  79. 2170 [152]4,tb$tb$"   443 chr$ladstone peeklvd.
  80. 2180 print#4,tb$tb$"   [211]hreveport [204][193] 71104"cr$
  81. 2190 print#4,tb$"[196]eadline is [205]ay 30, 2000."cr$cr$
  82. 2200 print#4,tb$"[206][193][205][197]:....................................................."cr$
  83. 2210 print#4,tb$"[193][196][196][210][197][211][211]:.................................................."cr$
  84. 2212 print#4,tb$"[195][201][212][217]:..:.................................................."cr$
  85. 2220 print#4,tb$"[211][212][193][212][197]:...................[208][207][211][212][193][204] [195][207][196][197]......................"cr$
  86. 2222 print#4,tb$"[195][207][213][206][212][210][217]:.................................................."cr$
  87. 2230 print#4,cr$cr$
  88. 2240 print#4,tb$;"[206]umber of fishes:"
  89. 2250 print#4,tb$;"                       ------"
  90. 2290 close4:poke186,dv
  91. 2292 return
  92. 2999 goto2999
  93. 10000 d=peek(186):n$="0:how many 2.b":open1,d,15,"s"+n$:close1:saven$,d:end
  94. 39000 pokev+21,0:print"[147]"
  95. 40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  96. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  97. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  98. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  99. 40040 close2:open2,i,2:close2:ifstthen40060
  100. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  101. 40060 next:return
  102. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  103. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  104. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  105. 60000 print"[147]":z$=" [152]                                      ":poke214,10:print
  106. 60010 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to8:printz$:next
  107. 60020 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  108. 60030 z$(0)="[215][193][204][212]'[211] [200][207][215] [205][193][206][217] [195][207][206][212][197][211][212] #2
  109. 60040 z$(2)[178]"by (NULL)alt left$arned and (NULL)nees lenalhoon
  110. 60050 z$(4)="(c) 2000 by [202] & [198] [208]ublishing, [201]nc."
  111. 60080 z$(6)="1-318-868-8727
  112. 60090 [151]214,12:[153]:[129]i[178]0[164]6:[153][163]20[171]([195](z$(i))[173]2))""z$(i):[130]:[142]
  113.